Attribute VB_Name = "modRundll32"
'Using this Module
'Functions available:
'________________________________________________________
'Access, AddPrinter, Control, DateTime, Display, DUN, HardWare
'Floppy, Font, Modem, Network, Restart, ShortCut, Sound
'System, ShutDown, Uninstall, WindowsSetup
'________________________________________________________

Public Sub Access()
On Error GoTo Handler
    Dim A As Long
    A = Shell("rundll32.exe shell32.dll,Control_RunDLL access.cpl,,5")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub HardWare()
On Error GoTo Handler
    Dim b As Long
    b = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl @1")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub AddPrinter()
On Error GoTo Handler
    Dim c As Long
    c = Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL AddPrinter")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub Uninstall()
On Error GoTo Handler
    Dim D As Long
    D = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,1")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub WindowsSetUp()
On Error GoTo Handler
    Dim E As Long
    E = Shell("rundll32.exe shell32.dll,Control_RunDLL appwiz.cpl,,2")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub ShortCut()
On Error GoTo Handler
    Dim f As Long
    f = Shell("rundll32.exe apwiz.cpl,NewLinkHere %1")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub DateTime()
On Error GoTo Handler
    Dim G As Long
    G = Shell("rundll32.exe shell32.dll,Control_RunDLL timedate.cpl,,0")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub DUN()
On Error GoTo Handler
    Dim H As Long
    H = Shell("rundll32.exe rnaui.dll,RnaWizard")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub Display()
On Error GoTo Handler
    Dim i As Long
    i = Shell("rundll32.exe shell32.dll,Control_RunDLL desk.cpl,,0")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub Font()
On Error GoTo Handler
    Dim J As Long
    J = Shell("rundll32.exe shell32.dll,SHHelpShortcuts_RunDLL FontsFolder ")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub FormatFloppy()
On Error GoTo Handler
    Dim k As Long
    k = Shell("rundll32.exe shell32.dll,SHFormatDrive")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub Modem()
On Error GoTo Handler
    Dim L As Long
    L = Shell("rundll32.exe shell32.dll,Control_RunDLL modem.cpl,,add")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub Sound()
On Error GoTo Handler
    Dim M As Long
    M = Shell("rundll32.exe shell32.dll,Control_RunDLL mmsys.cpl,,0")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub NetWork()
On Error GoTo Handler
    Dim n As Long
    n = Shell("rundll32.exe shell32.dll,Control_RunDLL netcpl.cpl")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub System()
On Error GoTo Handler
    Dim O As Long
    O = Shell("rundll32.exe shell32.dll,Control_RunDLL sysdm.cpl,,0")
Handler:
    Dim Z As Long
    Z = Msgbox("This option was not found on your system. Click Yes to open Control Pannel", vbExclamation + vbYesNo, "Error !")
    If (Z = 6) Then
        rc = Shell("Control.exe", vbNormalFocus)
    End If
End Sub

Public Sub RESTART()
    Dim P As Long
    P = Shell("rundll32.exe user.exe,restartwindows")
End Sub

Public Sub ShutDown()
    Dim Q As Long
    Q = Shell("rundll32.exe user.exe,exitwindows")
End Sub

Public Sub Control()
    rc = Shell("Control.exe", vbNormalFocus)
End Sub
